unit TimerQuery;

interface

uses
  ComObj, ActiveX, TimeTool_TLB, StdVcl,SysUtils;

type
  TTimerQuery = class(TAutoObject, ITimerQuery)
  protected
    procedure GetTime(out value: OleVariant); safecall;
    { Protected declarations }
  end;

implementation

uses ComServ;

procedure TTimerQuery.GetTime(out value: OleVariant);
begin
  value:=DateTimeToStr(Now());
end;

initialization
  TAutoObjectFactory.Create(ComServer, 
                                                      TTimerQuery, 
                                                      Class_TimerQuery,
                                                      ciMultiInstance, 
                                                      tmApartment);
end.
